home *** CD-ROM | disk | FTP | other *** search
/ Cre@te Online 2000 December / Cre@teOnline CD05.iso / MacSoft / XML ConsoleMax.sea / XML ConsoleMax / Required / swingall.jar / javax / swing / text / DefaultEditorKit$DeletePrevCharAction.class (.txt) < prev    next >
Encoding:
Java Class File  |  1999-07-15  |  1.3 KB  |  37 lines
  1. package javax.swing.text;
  2.  
  3. import java.awt.Toolkit;
  4. import java.awt.event.ActionEvent;
  5.  
  6. class DefaultEditorKit$DeletePrevCharAction extends TextAction {
  7.    DefaultEditorKit$DeletePrevCharAction() {
  8.       super("delete-previous");
  9.    }
  10.  
  11.    public void actionPerformed(ActionEvent var1) {
  12.       JTextComponent var2 = ((TextAction)this).getTextComponent(var1);
  13.       boolean var3 = true;
  14.       if (var2 != null && var2.isEditable()) {
  15.          try {
  16.             Document var4 = var2.getDocument();
  17.             Caret var5 = var2.getCaret();
  18.             int var6 = var5.getDot();
  19.             int var7 = var5.getMark();
  20.             if (var6 != var7) {
  21.                var4.remove(Math.min(var6, var7), Math.abs(var6 - var7));
  22.                var3 = false;
  23.             } else if (var6 > 0) {
  24.                var4.remove(var6 - 1, 1);
  25.                var3 = false;
  26.             }
  27.          } catch (BadLocationException var8) {
  28.          }
  29.       }
  30.  
  31.       if (var3) {
  32.          Toolkit.getDefaultToolkit().beep();
  33.       }
  34.  
  35.    }
  36. }
  37.